home *** CD-ROM | disk | FTP | other *** search
- /* */
-
- /* open the Rexx support library */
-
- if ~show('L',"rexxsupport.library") then do
- if addlib('rexxsupport.library',0,-30,0) then
- say 'added rexxsupport.library'
- else do;
- say 'support library not available'
- exit 10
- end
- end
-
- if ~show( 'L', "rexxserdev.library" ) then do
- if addlib( 'rexxserdev.library', 0, -30, 0 ) then
- say 'added rexxserdev.library'
- else do;
- say 'support library not available'
- exit 10
- end
- end
-
- libaddr = serlibbase()
- say 'serial library base =' libaddr
- /***************** ShoList.rexx ****************/
-